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MM MM TTTTTTTTTT HH HH CCCCCCCC §=DDDDDDDD LL 000000 GGGGGGGG 
MMMM | MMMM TT HH HH CC DD DD LL 00 00 GG 
MMMM MMMM TT HH HH CC DD DD LL 00 00 GG 
MM MM MM tT HH HK CC DD DD LL 00 00 GG 
MM MM MM TT HH HH CC DD DD LL 00 00 GG 
MM MM TT HHHHHHHHHH = CC DD DD 00 00 GG 
MM MM TT HHHHHHHHHH = CC DD DD LL 00 00 GG 
MM MM TT HH HH (CC DD DD LL 00 00 GG GGGGGG 
MM MM TT HH HH (CC DOD DD LL 00 00 GG GGG6GGG 
MM MM TT HH HH CC DD LL 00 00 GG GG cece 
MM MM TT HH HH CC DD DD LL 00 00 GG GG cows 
MM MM TT HH HH CCCCCCCC §=DDDDDDDD LLLLLLLLLL 000000 GGGGGG cece 
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Arg Natural Lo 


SEP=1984 

Sep] 984 
TITLE wrwscouoe D CO gerts hm 
-IDENT /1-003/ : File: MTHCDLOG.MAR Edit: SBL1003 


MARBARBRBRARASAASAAASRAALASLARAASALASSARSE AREAS AREA REE ASA RARE SERS A SESE REALS ASE SS 
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FACILITY: MATH LIBRARY 
"ABSTRACT: 
This module contains routine MTH$CDLOG - perform D COMPLEX*16 log 


VERSION: 1 
HISTORY: 


AUTHOR: 
Steven B. Lionel, 20-July-1979 


MODIFIED BY: 


SOOCOCCOSOOSOOSOOOSOSOSOOSSSOSOSOSOOOOSOOOOOSOOSOOOOSOOOSOOOOOOOOoOOo 
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01 = Adapted from MTHS$CLOG version 1-002. 
- Changed shared external references 


= Use general mode addressing. SBL 30-Nov-1981 
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-SBTTL DECLARATIONS 


ee 
1-00 


; INCLUDE FILES: 


EXTERNAL SYMBOLS: 


.DSABL GBL 
“EXTRN MTHSDATAN2 
TEXTRN MTHSCDABS 

“EXTRN MTHSDLOG_R8 


MACROS: 
NONE 


: PSECT DECLARATIONS: 


0000 »-PSECT _MTHSCODE PIC, SHR, LONG, EXE, NOWRT 


EQUATED SYMBOLS: 


SOOCOCCCOCOCOOCOOOOOOOOCOOOOOOCOOOO 7V 
SOOOoOSCOOCOCOCOOCCOCOOOSOOOOOOoOoOoOSoSoOo Yr 
SOOCooQOCoooooooooQoQooooooooooo -m 
pelo leleleoleloleololelelololeolele slelelol ole lole lolol elo mm? 3 
0909090909 09 00 08 SII NI NINSININININI OA AAAAAAAO 
NOU EWR CO OONAUES WN O ODNOUS WMO 

. 


OWN STORAGE: 
NONE 


ibs ears AER eae een TCE 
gp 


| 
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MTHSC 
-SBTTL MTHSCDLOG 

: FUNCTIONAL DESCRIPTION: 


computed as follows: 
; CALL.NG SEQUENCE: 


INPUT Anenprg ti 
00000008 arg = 8 


IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 


RNINNNINNININ 2 2 2 tS SS MH ODODOOCOSCOOWOOOOOOOOOO® 
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The Natural Logaritm of a complex number (r, i) is 


: CLOG(arg) = (LOG(CABS(arg)), ATAN2(arg)) 
CALL MTHSCDLOG (result.wdc.r, arg.rde.r) 


ook ra by reference, a D COMPLEX*16 


00000004 0000 result = 4 ; Result by reference, a D COMPLEX*16 
0000 s 3; value. 
0000 : IMPLICIT OUTPUTS: 
0000 : _ 
0000 : COMPLETION CODES: 
$000 5 
0000 > SIDE EFFECTS: 
444 : Signals Reserved Operand if the input parameter is bad (-0.0) 
0000 i-- 
0000 
O1FC 0000 ENTRY MTHSCDLOG. “M<R2,R3,R4,R5,R6,R7,R8> 
it MTHS LAG_ JACKET 3; set up error handler 
6D 00000000 ' GF +] 3 bop MOVAB G*MTHSSJACKET_HND, (FP) 
0 3; set handler address to jacket 
o 44 ; handler 
50 08 AC 0 09 129 OVL ocgcar. RO ; RO => forg) 
8 0b 130 PUSHAD : push addr {r) 
0 oD , 7) aoe PUSHL . 3 push addr tt 
00000000 ' GF 9s FB 11 1 § CALLS ° | aacaatain “R1 = DATAN2(arg) 
7D 0018 1 MOVvG no, = (SP) ; Save atan (arg) 
08 AC OD 8 18 134 PUSHL argtAa P) 3 Get cApsters? 
00000000'GF 01 FB i 135 CALLS #1, G*MTHSCDABS 3; Get CABS( are? 
"GF 18 2 1 § JSB G*ATHSDLOG_ R8 3 kO-R1 gets LOG(CABS(arg)) 
04 AC B 1 MOVL result (AP), R2 ; Address of result 
8 50 D re 3 MOVQ ; Real part of result 
6 8E 7D ; ¢ 1 MOVa (SP)+, (R2) ; Imaginary part of result 
04 140 RET 
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| ATHSCOLOG D COMPLEX*16 Natural Logarithm 16-SEP- ~1386 91 7 06 alee Be v04-00 Page 6 
Symbol table 6-SEP-1984 11: MTHRTL.S oMTH HCDLOG.MAR; 1 (4) 
ARG = 00000008 
be 9 hd aHND teeters =X = 01 
MTHSCDABS rererere x 80 
MTHSDATAN2 teeeeree =X 00 
hag age R8 eeeereee =X = 600 
RESU = 00000004 


PSECT name Allocation PSECT No. Attributes 
» OS , 00000000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL “ee NOEXE NORD NOWRT NOVEC BYTE 
_MTHSCODE 00000036 ( 54.) OT ¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 


peeweewescecsococccccoccn} 


ween eae rw ene n aeons sea ee + 


Phase Page faults CPU Time Elapsed Time 
Initialization 3 00:00:00.06 00:00:00.53 
pouneas processing 130 00:00:00.66 00:00:03.50 
s 1 81 00:00:00.59 00:00:03.37 
Synbol table sort 0 00:00:00.00 00:00:00.00 
Pass 2 40 00:00:00.45 00:00:01.96 
Symbol table output 2 00:00:00.00 00:00:00.02 
Psect synopsis output 2 es Se 3 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 290 00:00:01.80 00:00:09.42 


The working set Limit was 900 pages. 

2259 bytes (5 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space ad ea | to hold 7 non-local and 0 local symbols. 
203 source Lines were read in Pass 1, producing 11 object records in Pass 2. 

1 page of virtual memory was used to "define 1 macro. 


Macro Library name Macros defined 
“S25SSDUAZ8:(SYSLIBISTARLET.MLB:20 0 i tS 0 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MTHSCOLOG 00000000 RG 
MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHCDLOG/OBJ=OBJ$:MTHCDLOG MSRC$:MTHJACKET/UPDATE=(ENHS :MTHJACKET) #+MSRC 
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